100
Is is possible to toggle the selection of dates, such the first click selects the date, the second click unselects it, and so on

with Schedule1 do
begin
	OnResizeControl := Integer(EXSCHEDULELib_TLB.exCalendarFit) Or Integer(EXSCHEDULELib_TLB.exHideSplitter) Or Integer(EXSCHEDULELib_TLB.exResizePanelRight);
	with Calendar do
	begin
		AllowToggleSelectKey := EXSCHEDULELib_TLB.exLeftClick;
		AllowSelectDate := EXSCHEDULELib_TLB.exLeftClick;
		SingleSel := False;
	end;
end
99
How can I change the background color for selected dates in the calendar panel, so always is the same no matter if the control loses the focus

with Schedule1 do
begin
	Background[EXSCHEDULELib_TLB.exCalendarSelBackColorUnFocus] := Background[EXSCHEDULELib_TLB.exCalendarSelBackColor];
	Background[EXSCHEDULELib_TLB.exCalendarSelForeColorUnFocus] := Background[EXSCHEDULELib_TLB.exCalendarSelForeColor];
end
98
Is it possible to specify a different background color for the calendar panel

with Schedule1 do
begin
	Background[EXSCHEDULELib_TLB.exCalendarBackColor] := $f0f0f0;
end
97
How do I change the control's border, using your EBN files

with Schedule1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Appearance := EXSCHEDULELib_TLB.AppearanceEnum($1000000);
end
96
Is it possible to prevent showing the calendar at all

with Schedule1 do
begin
	OnResizeControl := Integer(EXSCHEDULELib_TLB.exChangePanels) Or Integer(EXSCHEDULELib_TLB.exHideSplitter);
	ScrollBars := EXSCHEDULELib_TLB.exNoScroll;
end
95
How can I change the visual aspect only for a specified event

with Schedule1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Calendar.Selection := '6/20/2012';
	with Events do
	begin
		Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM');
		Add('6/20/2012 10:30:00 AM','6/20/2012 1:00:00 PM').BodyBackColor := $1000000;
		Add('6/20/2012 1:00:00 PM','6/20/2012 3:00:00 PM');
	end;
	DefaultEventPadding[EXSCHEDULELib_TLB.exPaddingAll] := 2;
end
94
How can I change the visual aspect of the events

with Schedule1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Background[EXSCHEDULELib_TLB.exScheduleCreateEventBackColor] := $1000000;
	Background[EXSCHEDULELib_TLB.exScheduleUpdateEventsBackColor] := $1000000;
	BodyEventBackColor := $1000000;
end
93
Is there any event to let me know once an edit has been edited

// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
procedure TForm1.Schedule1LayoutEndChanging(ASender: TObject; Operation : LayoutChangingEnum);
begin
	with Schedule1 do
	begin
		OutputDebugString( 'End exScheduleEditEvent(15)' );
		OutputDebugString( Operation );
	end
end;

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
procedure TForm1.Schedule1LayoutStartChanging(ASender: TObject; Operation : LayoutChangingEnum);
begin
	with Schedule1 do
	begin
		OutputDebugString( 'Start exScheduleEditEvent(15)' );
		OutputDebugString( Operation );
	end
end;

with Schedule1 do
begin
	AllowEditEvent := EXSCHEDULELib_TLB.exLeftClick;
	AllowSelectEvent := EXSCHEDULELib_TLB.exDisallow;
	DefaultEventLongLabel := '';
	DefaultEventShortLabel := DefaultEventLongLabel;
	VisualDesign := 'gBFLBWIgBAEHhEJAEGg7IAUHXI6g0MAAmhULikUCIgg6sh4AgRCJ0Ui8HjKTj6AADACAxRDAMgBQKAAzQFAYZhpBaERiHEZoJhUAIIRZGMQxXAcMQvDSKQRhEAoJDgN4' + 
	'kQKNYyQYAAYhuGaPBhASQJUhkMocR7HMygBJkUABEyYaFHdIFCQ1DykJzkCbqAgkMYeDRHQxTdQsEgpDQMIRpGA5eb+XgAV4/cTSYKQahLMizJYGUYLHgma5tTTWcTVP' + 
	'LVFRrJiTYRlKTJOjCCQ0ATdUyzPAeCRzQ6QJ5kUZ6CgSUpGRjkhY6agkF6VVxCNg2BT8KzxRoAKhiGpKHpaCaUQLWMB5PaoAR8fLYAA2B6bDhGaa2XAAFr2VZkWSUBBp' + 
	'nSWo8kYIg1D6NBuGyIhYnCXx5kuHZcjUAAOAcDxbF2L5mmKPIOl2Ox7l2XJVGAfRMh8CABiyYpgi8E5pFSRp4DQHBkiKOQug4ChpmqPRoiAco6HePxJDUXQAASCYpHAW' + 
	'pUHmGxmlwdphlwQJWncMQzFwXknCodJcEcXRiHYUIYCwAByhyaB1lAeReDgTgAHwU44GoHB3lUJgFi2BgYCYGYGgkFx2C2ax+lARI9FKA5YHiMR2guHBHlUPIChuBRJk' + 
	'4XIjiUKg8GsY5ohkZoQh2dJ6AYZxfFkHZoF2E5gkQOBPgMIJJHwS5WJmMRvhINwRHKAAdCieZyHEHgxEAaQYkcQZUHIGRUnQJIuAGEAxAgTYclGFBRAMCgQhgTZnEIIQ' + 
	'0AweIdCYZYGgaIZbDaTJbiKaJKDaDojmkChGhKI5bDoHoWD+aIqDiPImmmSh2h6J5qAqBoi3yeghjCIwpnIeoqiqapKjaLormsCouh+IwrBqVo2i2a4KlqHItY0Fo+i+' + 
	'bALAaF4riuOmPjCLILCaSYxCmOpwh6MotAsRoWjMC5LDqUo1m0GxSlaNgtktlgxiuWx2mKL4tnMbpHjiboKB6ZY5m6G42muOBuluJpvjObwbkqLYxG4a5CnWOIvDubpo' + 
	'iyKZrG6fo3HACxWg6OwwDsYoriUGwMCMCY0iqOgnBKQ4wnsQwUFgcR8FaSJGE+fBzBqMAxkqZwikichLlKFxAEAgIA==';
	Calendar.Selection := '6/20/2012';
	with Events do
	begin
		Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
		Add('6/20/2012 10:30:00 AM','6/20/2012 1:00:00 PM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
		Add('6/20/2012 1:00:00 PM','6/20/2012 3:00:00 PM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
	end;
	DefaultEventPadding[EXSCHEDULELib_TLB.exPaddingAll] := 2;
end
92
I've noticed that the background of the event while editing is transparent. Is it possible to change it

with Schedule1 do
begin
	AllowEditEvent := EXSCHEDULELib_TLB.exLeftClick;
	AllowSelectEvent := EXSCHEDULELib_TLB.exDisallow;
	DefaultEventLongLabel := '';
	DefaultEventShortLabel := DefaultEventLongLabel;
	VisualDesign := 'gBFLBWIgBAEHhEJAEGg41hhjNcHhgAE0KhcTiYREEHDMMgRCJ0Ti0ShEGhiAADACAxRDAMgBQKAAzQFAYbhsGCGAAGEZBQgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlST' + 
	'JcQjKKEUQTFiXIyAKL5CgkBYJBrNM5SFIAEQSKA0TDOQ5To5jEBzIxIIjaJhoNoJChNU4TIDELphECdYqUCq6cp2XgAJhYNhWHYgAIjM60LRtIAELq2bpvXAACCXHala' + 
	'zsAA+bxvK67cAAd5/YBgOBAAaGC4NQ7EAANHC8Mw3DgAGLkORZHigACzS7MMxzIACQx3HqfaAABK6HomS5NUTTNR0TLNAy3HqWZpsOYZBima4lRTHNxxTBMIz3Bp+YI4' + 
	'DgC5FnOCx6jkXY5DcSxlkOGxujMWo6DaCwFhOKzgFeOw1lAAoXjuXpvngAAQBAgI';
	Calendar.Selection := '6/20/2012';
	with Events do
	begin
		Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
		Add('6/20/2012 11:00:00 AM','6/20/2012 1:00:00 PM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
		Add('6/20/2012 1:00:00 PM','6/20/2012 3:00:00 PM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
	end;
	Background[EXSCHEDULELib_TLB.exScheduleEditEventBackColor] := $ff;
end
91
How can I edit the Event.LongLabel property of the Event rather than ExtraLabel

with Schedule1 do
begin
	AllowEditEvent := EXSCHEDULELib_TLB.exLeftClick;
	AllowSelectEvent := EXSCHEDULELib_TLB.exDisallow;
	DefaultEventLongLabel := '';
	DefaultEventShortLabel := DefaultEventLongLabel;
	Calendar.Selection := '6/20/2012';
	with Events do
	begin
		Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
		Add('6/20/2012 11:00:00 AM','6/20/2012 1:00:00 PM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
		Add('6/20/2012 1:00:00 PM','6/20/2012 3:00:00 PM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
	end;
end
90
Is it possible to edit the event at a single click rather than double click

with Schedule1 do
begin
	AllowEditEvent := EXSCHEDULELib_TLB.exLeftClick;
	AllowSelectEvent := EXSCHEDULELib_TLB.exDisallow;
	Calendar.Selection := '6/20/2012';
	with Events do
	begin
		Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM');
		Add('6/20/2012 11:00:00 AM','6/20/2012 1:00:00 PM');
		Add('6/20/2012 1:00:00 PM','6/20/2012 3:00:00 PM');
	end;
end
89
How can I prevent editing the events
with Schedule1 do
begin
	AllowEditEvent := EXSCHEDULELib_TLB.exDisallow;
end
88
How can I prevent selecting the events
with Schedule1 do
begin
	AllowSelectEvent := EXSCHEDULELib_TLB.exDisallow;
end
87
The event gets blue when selected. It is possible to draw a frame instead

with Schedule1 do
begin
	SelectEventStyle := Integer(EXSCHEDULELib_TLB.exLinesThicker) Or Integer(EXSCHEDULELib_TLB.exLinesSolid);
end
86
Is there an event that fires when the user selects a different day/week/month
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
procedure TForm1.Schedule1LayoutEndChanging(ASender: TObject; Operation : LayoutChangingEnum);
begin
	with Schedule1 do
	begin
		OutputDebugString( Operation );
		OutputDebugString( 'should be on  exCalendarSelectionChange(1)' );
	end
end;

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
procedure TForm1.Schedule1LayoutStartChanging(ASender: TObject; Operation : LayoutChangingEnum);
begin
	with Schedule1 do
	begin
		OutputDebugString( Operation );
		OutputDebugString( 'should be on  exCalendarSelectionChange(1)' );
	end
end;


85
Can I use and display just the Caption of the Event

with Schedule1 do
begin
	DefaultEventLongLabel := '<%=%5%>';
	DefaultEventShortLabel := DefaultEventLongLabel;
	Calendar.Selection := '6/20/2012';
	with Events do
	begin
		Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM').Caption := 'caption 1';
		Add('6/20/2012 11:00:00 AM','6/20/2012 1:00:00 PM').Caption := 'caption 2';
		Add('6/20/2012 1:00:00 PM','6/20/2012 3:00:00 PM').Caption := 'caption 3';
	end;
end
84
How can I use the Caption property of the Event

with Schedule1 do
begin
	DefaultEventLongLabel := '<%=%256%><br><b><%=%5%>';
	DefaultEventShortLabel := DefaultEventLongLabel;
	Calendar.Selection := '6/20/2012';
	with Events do
	begin
		Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM').Caption := 'caption 1';
		with Add('6/20/2012 11:00:00 AM','6/20/2012 1:00:00 PM') do
		begin
			LongLabel := '';
			ExtraLabel := '<%=%5%>';
			Caption := 'caption 2';
		end;
		with Add('6/20/2012 1:00:00 PM','6/20/2012 3:00:00 PM') do
		begin
			LongLabel := '<%=%256%><br><b><%=%5%><br><fgcolor=808080>another text';
			Caption := 'caption 3';
		end;
	end;
end
83
Is it possible to display a view of appointments with more than one person

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '6/20/2012';
	DisplayGroupingButton := True;
	ShowGroupingEvents := True;
	with Groups do
	begin
		with Add(1,'Mihai') do
		begin
			EventBackColor := $ff;
			HeaderForeColor := EventBackColor;
			Visible := True;
			Title := Caption;
		end;
		with Add(2,'Dave') do
		begin
			EventBackColor := $ff00;
			HeaderForeColor := EventBackColor;
			Visible := True;
			Title := Caption;
		end;
		with Add(3,'Enrike') do
		begin
			EventBackColor := $ff8080;
			HeaderForeColor := EventBackColor;
			Visible := True;
			Title := Caption;
		end;
	end;
	DefaultEventLongLabel := '<%=%256%><br><%=%263%>';
	with Events do
	begin
		Add('6/20/2012 10:00:00 AM','6/20/2012 1:30:00 PM').GroupID := 1;
		Add('6/20/2012 11:00:00 AM','6/20/2012 1:30:00 PM').GroupID := 2;
		Add('6/20/2012 1:30:00 PM','6/20/2012 3:00:00 PM').GroupID := 3;
	end;
	EndUpdate();
end
82
How can I prevent selecting more dates in the schedule view
with Schedule1 do
begin
	ScrollBars := EXSCHEDULELib_TLB.exNoScroll;
	AllowMoveSchedule := EXSCHEDULELib_TLB.exDisallow;
	Calendar.SingleSel := True;
end
81
How can I get ride of the control's scroll bars

with Schedule1 do
begin
	ScrollBars := EXSCHEDULELib_TLB.exNoScroll;
	AllowMoveSchedule := EXSCHEDULELib_TLB.exDisallow;
end
80
I am hiding the Calendar section of the control, the question is how can I select another date in the scheduler

with Schedule1 do
begin
	OnResizeControl := Integer(EXSCHEDULELib_TLB.exChangePanels) Or Integer(EXSCHEDULELib_TLB.exHideSplitter);
	Calendar.Selection := '1/1/2001';
end
79
How can I add an event to indicate the Easter Sunday

with Schedule1 do
begin
	with Calendar do
	begin
		ShowNonMonthDays := False;
		FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
		Selection := 'month(value) in (3,4)';
		HighlightEvent.BackColor := $808080;
		ShowYearScroll := True;
	end;
	Background[EXSCHEDULELib_TLB.exCalendarSelBackColorUnFocus] := Background[EXSCHEDULELib_TLB.exCalendarSelBackColor];
	Background[EXSCHEDULELib_TLB.exScheduleBorderSelColorUnFocus] := Background[EXSCHEDULELib_TLB.exCalendarSelBackColor];
	with Events do
	begin
		with Add('6/12/2012 10:00:00 AM','6/12/2012 2:00:00 PM') do
		begin
			AllDayEvent := True;
			Repetitive := 'not(month(value) in (3,4,5)) ? 0 : ( floor(value)=(2:=floor(date(dateS(''3/1/'' + year(value)) + ((1:=(((255 - 11 * (year(value) m' + 
	'od 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((year(value) + int(year(value) / 4)) + =:1 + (=:1 > 48 ? -1 : 0) + 1) m' + 
	'od 7)))))';
			LongLabel := 'EASTER of <%=year(%1)%> falls in<br><%=%1%>';
			ShortLabel := LongLabel;
		end;
	end;
end
78
I need a repetitive event happens every n-days, and stops after m-times. Can your control handle this

with Schedule1 do
begin
	SelectEventStyle := Integer(EXSCHEDULELib_TLB.exLinesThick) Or Integer(EXSCHEDULELib_TLB.exLinesSolid);
	with Calendar do
	begin
		NonworkingDays := 0;
		ShowNonMonthDays := False;
		FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
		Selection := '1/1/2012';
		Selection := 'month(value) = 6';
		HighlightEvent.FontSize := 10;
	end;
	BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
	Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
	with Events do
	begin
		with Add('6/12/2012 10:00:00 AM','6/12/2012 2:00:00 PM') do
		begin
			Repetitive := '(value >= (0:=#6/1/2012#)) and ( (value - =:0) mod (1:=5) = 0) and (value-=:0) < (3*=:1)';
			Selected := True;
		end;
	end;
end
77
How can I add a repetitive event to occur every n days

with Schedule1 do
begin
	SelectEventStyle := Integer(EXSCHEDULELib_TLB.exLinesThick) Or Integer(EXSCHEDULELib_TLB.exLinesSolid);
	with Calendar do
	begin
		NonworkingDays := 0;
		ShowNonMonthDays := False;
		FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
		Selection := 'month(value) = 6';
		HighlightEvent.FontSize := 10;
	end;
	BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
	Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
	with Events do
	begin
		with Add('6/12/2012 10:00:00 AM','6/12/2012 2:00:00 PM') do
		begin
			Repetitive := 'value >= #6/1/2012# and ( (value - #6/1/2012#) mod 5 = 0)';
			Selected := True;
		end;
	end;
end
76
I am using the AutoHide option, just wondering if there is any event that notifies once the calendar panel shows or hides
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
procedure TForm1.Schedule1LayoutEndChanging(ASender: TObject; Operation : LayoutChangingEnum);
begin
	with Schedule1 do
	begin
		OutputDebugString( 'End exLayoutCalendarAutoHide(7)' );
		OutputDebugString( Operation );
	end
end;

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
procedure TForm1.Schedule1LayoutStartChanging(ASender: TObject; Operation : LayoutChangingEnum);
begin
	with Schedule1 do
	begin
		OutputDebugString( 'Start exLayoutCalendarAutoHide(7)' );
		OutputDebugString( Operation );
	end
end;

with Schedule1 do
begin
	OnResizeControl := EXSCHEDULELib_TLB.exCalendarAutoHide;
end
75
Is it possible to display the same event on multiple days

with Schedule1 do
begin
	SelectEventStyle := Integer(EXSCHEDULELib_TLB.exLinesThick) Or Integer(EXSCHEDULELib_TLB.exLinesSolid);
	with Calendar do
	begin
		NonworkingDays := 0;
		ShowNonMonthDays := False;
		FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
		Selection := '1/1/2012';
		Selection := 'month(value) = 6';
		HighlightEvent.FontSize := 10;
	end;
	BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
	Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
	with Events do
	begin
		with Add('6/12/2012 10:00:00 AM','6/12/2012 2:00:00 PM') do
		begin
			Repetitive := 'value in (#6/8/2012#,#6/11/2012#,#6/20/2012#)';
			Selected := True;
		end;
	end;
end
74
How can I change the selection background color so it is the same if the control loses the focus

with Schedule1 do
begin
	with Calendar do
	begin
		NonworkingDays := 0;
		ShowNonMonthDays := False;
		Selection := '6/12/2012';
		HighlightEvent.FontSize := 10;
	end;
	BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
	Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
	Events.Add('6/12/2012 10:00:00 AM','6/12/2012 2:00:00 PM');
	Background[EXSCHEDULELib_TLB.exCalendarSelBackColorUnFocus] := Background[EXSCHEDULELib_TLB.exCalendarSelBackColor];
end
73
How can I add a repetitive event so it occurs every Monday

with Schedule1 do
begin
	with Calendar do
	begin
		NonworkingDays := 0;
		ShowNonMonthDays := False;
		FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
		Selection := 'month(value) = 6';
		with HighlightEvent do
		begin
			FontSize := 10;
			BackColor := $808080;
		end;
	end;
	BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
	Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
	with Events do
	begin
		Add('6/12/2012 10:00:00 AM','6/12/2012 2:00:00 PM').Repetitive := 'weekday(value) = 1';
	end;
end
72
How can I select the current month

with Schedule1 do
begin
	with Calendar do
	begin
		NonworkingDays := 0;
		ShowNonMonthDays := False;
		FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
		Selection := 'month(value) = month(date(``))';
	end;
	BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
	Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
end
71
How can I select the next two days

with Schedule1 do
begin
	with Calendar do
	begin
		NonworkingDays := 0;
		ShowNonMonthDays := False;
		FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
		Selection := '(value - int(date(``))) in (1,2,0)';
	end;
	BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
	Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
end
70
How can I select the last two days

with Schedule1 do
begin
	with Calendar do
	begin
		NonworkingDays := 0;
		ShowNonMonthDays := False;
		FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
		Selection := '(int(date(``)) - value) in (1,2,0)';
	end;
	BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
	Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
end
69
How can I select the current week
with Schedule1 do
begin
	with Calendar do
	begin
		NonworkingDays := 0;
		ShowNonMonthDays := False;
		FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
		Selection := '(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(date(``))-1)/7))';
	end;
	BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
	Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
end
68
Is it possible to highlight or change the background or foreground color for the today date in the schedule panel

with Schedule1 do
begin
	with Calendar do
	begin
		NonworkingDays := 0;
		ShowNonMonthDays := False;
		FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
		Selection := 'month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(' + 
	'date(``))-1)/7))';
	end;
	BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
	Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
end
67
How can I display no working/non-working days in the control

with Schedule1 do
begin
	with Calendar do
	begin
		NonworkingDays := 0;
		ShowNonMonthDays := False;
		FirstWeekDay := EXSCHEDULELib_TLB.exMonday;
	end;
	BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
end
66
The schedule displays a blue border around the selected dates. How can I get ride of that

with Schedule1 do
begin
	with Calendar do
	begin
		ShowNonMonthDays := False;
		Selection := '6/18/2012';
	end;
	BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
end
65
The calendar panel shows days that belongs to another month. How can I display just the days within the current month

with Schedule1 do
begin
	Calendar.ShowNonMonthDays := False;
end
64
Is it possible to show the non-working days with a solid color instead

with Schedule1 do
begin
	with Calendar do
	begin
		Selection := '6/14/2012';
		Selection := 'value in (#6/14/2012#,#6/15/2012#,#6/16/2012#,#6/17/2012#)';
		FirstWeekDay := EXSCHEDULELib_TLB.exMonday;
		NonworkingDaysPattern := EXSCHEDULELib_TLB.exPatternSolid;
		NonworkingDaysColor := $e0e0e0;
	end;
end
63
How can I display the now-working days in the schedule panel too

with Schedule1 do
begin
	with Calendar do
	begin
		Selection := '6/14/2012';
		Selection := 'value in (#6/14/2012#,#6/15/2012#,#6/16/2012#,#6/17/2012#)';
		FirstWeekDay := EXSCHEDULELib_TLB.exMonday;
	end;
	NonworkingTimes.Add(1,'00:00','00:00',-1);
end
62
How can I make the control read-only

with Schedule1 do
begin
	AllowCreateEvent := EXSCHEDULELib_TLB.exDisallow;
	AllowMoveEvent := EXSCHEDULELib_TLB.exDisallow;
	AllowResizeEvent := EXSCHEDULELib_TLB.exDisallow;
	AllowMoveSchedule := EXSCHEDULELib_TLB.exLeftClick;
	AllowSelectEvent := EXSCHEDULELib_TLB.exDisallow;
	Calendar.Selection := '5/24/2012';
	Calendar.Selection := 'value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)';
	Events.Add('5/25/2012 9:30:00 AM','5/25/2012 1:00:00 PM');
end
61
How can I check/uncheck a group, so it is visible after I add it

with Schedule1 do
begin
	DisplayGroupingButton := True;
	ShowGroupingEvents := True;
	Groups.Add(1,'Pro').Visible := True;
end
60
The drop down button to show groups is not visible, even I set the DisplayGroupingButton. What Can I do

with Schedule1 do
begin
	DisplayGroupingButton := True;
	ShowGroupingEvents := True;
end
59
It is possible to translate "All" to "Todos" or to something else

with Schedule1 do
begin
	Description[EXSCHEDULELib_TLB.exGroupBarAll] := '(todos)';
	DisplayGroupingButton := True;
	ShowGroupingEvents := True;
	Groups.Add(1,'Pro');
end
58
How can I remove the control's scroll bars

with Schedule1 do
begin
	ScrollBars := EXSCHEDULELib_TLB.exNoScroll;
end
57
How can I select a month

with Schedule1 do
begin
	Calendar.Selection := 'month(value) = month(date(``))';
end
56
How can I display two or more dates in the scheduler (Method 2)

with Schedule1 do
begin
	with Calendar do
	begin
		Selection := '5/24/2012';
		Selection := 'value in ( #5/24/2012#, #5/25/2012# )';
	end;
end
55
How can I display two or more dates in the scheduler (Method 1)

with Schedule1 do
begin
	with Calendar do
	begin
		Selection := '0';
		SelectDate['5/24/2012'] := True;
		SelectDate['5/25/2012'] := True;
	end;
end
54
How can I define a different color for nonworking part for different days

with Schedule1 do
begin
	BeginUpdate();
	with Calendar do
	begin
		Selection := '5/21/2012';
		Selection := '(value >= #05/21/2012#) and (value <= #05/25/2012#)';
		FirstWeekDay := EXSCHEDULELib_TLB.exMonday;
	end;
	with NonworkingPatterns do
	begin
		Add(1234,EXSCHEDULELib_TLB.exPatternBDiagonal).Pattern.Color := $ff;
		Add(1235,EXSCHEDULELib_TLB.exPatternBDiagonal).Pattern.Color := $ff00;
		Add(1236,EXSCHEDULELib_TLB.exPatternBDiagonal).Pattern.Color := $ff0000;
		with Add(1237,Integer(EXSCHEDULELib_TLB.exPatternFrameThick) Or Integer(EXSCHEDULELib_TLB.exPatternCross)) do
		begin
			Pattern.Color := $808080;
			Pattern.FrameColor := $404040;
			BackColor := $ffff;
		end;
	end;
	with NonworkingTimes do
	begin
		Add('weekday(value) in (0,1)','10:00','11:45',1234);
		Add('weekday(value) = 2','00:00','08:45',1235);
		Add('weekday(value) = 2','15:00','24:00',1235);
		Add('weekday(value) in (3,5)','12:15','13:00',1236);
		Add('weekday(value) = 4','13:30','15:00',1237);
	end;
	ShowNonworkingTime := EXSCHEDULELib_TLB.exShowNonworkingTimeSemi;
	EndUpdate();
end
53
Is it possible to show both nonworking and the events, using semi-transparent color

with Schedule1 do
begin
	with Calendar do
	begin
		Selection := '5/24/2012';
		Selection := 'value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)';
	end;
	with NonworkingPatterns do
	begin
		Add(1234,EXSCHEDULELib_TLB.exPatternBrick);
		with Add(9871,Integer(EXSCHEDULELib_TLB.exPatternFrameThick) Or Integer(EXSCHEDULELib_TLB.exPatternYard)) do
		begin
			BackColor := $ff;
		end;
		with Add(9872,Integer(EXSCHEDULELib_TLB.exPatternFrameThick) Or Integer(EXSCHEDULELib_TLB.exPatternYard)) do
		begin
			BackColor := $ffff;
		end;
	end;
	with NonworkingTimes do
	begin
		Add('1','00:00','08:45',1234);
		Add('weekday(value) = 5','10:00','11:45',9871);
		Add('weekday(value) = 4','12:00','12:35',9872);
	end;
	Events.Add('5/25/2012 9:30:00 AM','5/25/2012 1:00:00 PM');
	ShowNonworkingTime := EXSCHEDULELib_TLB.exShowNonworkingTimeSemi;
end
52
Is it possible to show the nonworking part behind, on the back

with Schedule1 do
begin
	with Calendar do
	begin
		Selection := '5/24/2012';
		Selection := 'value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)';
	end;
	with NonworkingPatterns do
	begin
		Add(1234,EXSCHEDULELib_TLB.exPatternBrick);
		with Add(9871,Integer(EXSCHEDULELib_TLB.exPatternFrameThick) Or Integer(EXSCHEDULELib_TLB.exPatternYard)) do
		begin
			BackColor := $ff;
		end;
		with Add(9872,Integer(EXSCHEDULELib_TLB.exPatternFrameThick) Or Integer(EXSCHEDULELib_TLB.exPatternYard)) do
		begin
			BackColor := $ffff;
		end;
	end;
	with NonworkingTimes do
	begin
		Add('1','00:00','08:45',1234);
		Add('weekday(value) = 5','10:00','11:45',9871);
		Add('weekday(value) = 4','12:00','12:35',9872);
	end;
	Events.Add('5/25/2012 9:30:00 AM','5/25/2012 1:00:00 PM');
	ShowNonworkingTime := EXSCHEDULELib_TLB.exShowNonworkingTimeBack;
end
51
Can you explain how the non working day patterns work and how to define for different days of the week

with Schedule1 do
begin
	with Calendar do
	begin
		Selection := '5/24/2012';
		Selection := 'value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)';
	end;
	with NonworkingPatterns do
	begin
		Add(1234,EXSCHEDULELib_TLB.exPatternBrick);
		with Add(9871,Integer(EXSCHEDULELib_TLB.exPatternFrameThick) Or Integer(EXSCHEDULELib_TLB.exPatternYard)) do
		begin
			BackColor := $ff;
		end;
		with Add(9872,Integer(EXSCHEDULELib_TLB.exPatternFrameThick) Or Integer(EXSCHEDULELib_TLB.exPatternYard)) do
		begin
			BackColor := $ffff;
		end;
	end;
	with NonworkingTimes do
	begin
		Add('1','00:00','08:45',1234);
		Add('weekday(value) = 5','10:00','11:45',9871);
		Add('weekday(value) = 4','12:00','12:35',9872);
	end;
end
50
How can I add a nonworking time

with Schedule1 do
begin
	with NonworkingTimes do
	begin
		Add('1','00:00','08:45',-1);
		Add('weekday(value) = weekday(date(``))','10:00','11:15',-1);
	end;
end
49
How can I get the event from the cursor

// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.Schedule1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with Schedule1 do
	begin
		OutputDebugString( 'Calendar.DateFromPoint' );
		OutputDebugString( Calendar.DateFromPoint[-1,-1] );
		OutputDebugString( 'AnchorFromPoint' );
		OutputDebugString( AnchorFromPoint[-1,-1] );
		OutputDebugString( 'DateTimeFromPoint' );
		OutputDebugString( DateTimeFromPoint[-1,-1] );
		OutputDebugString( 'TimeFromPoint' );
		OutputDebugString( TimeFromPoint[-1,-1] );
		OutputDebugString( 'TimeScaleFromPoint' );
		OutputDebugString( TimeScaleFromPoint[-1,-1] );
		OutputDebugString( 'GroupFromPoint' );
		OutputDebugString( GroupFromPoint[-1,-1] );
		OutputDebugString( 'GroupHeaderFromPoint' );
		OutputDebugString( GroupHeaderFromPoint[-1,-1] );
		OutputDebugString( 'MarkZoneFromPoint' );
		OutputDebugString( MarkZoneFromPoint[-1,-1] );
		OutputDebugString( 'NonworkingTimeFromPoint' );
		OutputDebugString( NonworkingTimeFromPoint[-1,-1] );
		OutputDebugString( 'MarkTimeFromPoint' );
		OutputDebugString( MarkTimeFromPoint[-1,-1] );
		OutputDebugString( 'EventFromPoint' );
		OutputDebugString( EventFromPoint[-1,-1] );
		OutputDebugString( 'PictureFromPoint' );
		OutputDebugString( PictureFromPoint[-1,-1] );
	end
end;

with Schedule1 do
begin
	BeginUpdate();
	AllowMultiDaysEvent := False;
	AllowCreateEvent := Integer(EXSCHEDULELib_TLB.exCTRLKey) Or Integer(EXSCHEDULELib_TLB.exLeftClick);
	AllowMoveEvent := Integer(EXSCHEDULELib_TLB.exCTRLKey) Or Integer(EXSCHEDULELib_TLB.exLeftClick);
	AllowMoveTimeScale := EXSCHEDULELib_TLB.exLeftClick;
	AllowMoveSchedule := EXSCHEDULELib_TLB.exLeftClick;
	AllowSelectEvent := Integer(EXSCHEDULELib_TLB.exCTRLKey) Or Integer(EXSCHEDULELib_TLB.exLeftClick);
	AllowResizeEvent := EXSCHEDULELib_TLB.exLeftClick;
	Calendar.MaxMonthY := 6;
	SelectEventStyle := Integer(EXSCHEDULELib_TLB.exLinesThicker) Or Integer(EXSCHEDULELib_TLB.exLinesSolid);
	Calendar.Selection := '5/24/2012';
	with MarkTimes.Add('timer','5/24/2012 11:35:00 AM') do
	begin
		TimeScaleLabel := '';
		Label := '<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>';
		LabelAlign := EXSCHEDULELib_TLB.exBottomRight;
		Line := Integer(EXSCHEDULELib_TLB.exLinesThicker) Or Integer(EXSCHEDULELib_TLB.exLinesDash);
		BodyEventBackColor := $80;
		BodyEventForeColor := $ffffff;
		Movable := True;
	end;
	with Events do
	begin
		Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
		Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
	end;
	EndUpdate();
end
48
How can I show the timer only in the chart section

with Schedule1 do
begin
	Calendar.Selection := '5/24/2012';
	with MarkTimes.Add('timer','5/24/2012 11:35:00 AM') do
	begin
		Label := ' <font ;12>timer</font> ';
		LabelAlign := EXSCHEDULELib_TLB.exBottomRight;
		TimeScaleLabel := '';
		TimeScaleLine := EXSCHEDULELib_TLB.exNoLines;
	end;
end
47
How can I let the user to move the timer from the cursor

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	with MarkTimes.Add('timer','5/24/2012 11:35:00 AM') do
	begin
		TimeScaleLabel := '';
		Label := '<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>';
		LabelAlign := EXSCHEDULELib_TLB.exBottomRight;
		Line := Integer(EXSCHEDULELib_TLB.exLinesThicker) Or Integer(EXSCHEDULELib_TLB.exLinesDash);
		BodyEventBackColor := $80;
		BodyEventForeColor := $ffffff;
		Movable := True;
	end;
	with Events do
	begin
		Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
		Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
	end;
	EndUpdate();
end
46
How can I show the timer only in the time scale

with Schedule1 do
begin
	Calendar.Selection := '5/24/2012';
	with MarkTimes.Add('timer','5/24/2012 11:35:00 AM') do
	begin
		TimeScaleLabel := ' <font ;12>timer</font> ';
		Line := EXSCHEDULELib_TLB.exNoLines;
	end;
end
45
I have seen some screen shots and noticed, that you can place images on a timer. How can I do that

with Schedule1 do
begin
	BeginUpdate();
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
	Calendar.Selection := '5/24/2012';
	StatusEventSize := 8;
	StatusEventColor := RGB(255,255,255);
	with MarkTimes.Add('timer','5/24/2012 11:35:00 AM') do
	begin
		Label := '<img>pic1</img>';
		TimeScaleLabel := '<fgcolor=FF0000><b><%hh%>:<%nn%> <%AM/PM%><br><c><img>1</img>';
		LabelAlign := EXSCHEDULELib_TLB.exMiddleRight;
		Line := Integer(EXSCHEDULELib_TLB.exLinesThicker) Or Integer(EXSCHEDULELib_TLB.exLinesDash);
		Movable := True;
		StatusEventPattern.Type := EXSCHEDULELib_TLB.exPatternShadow;
		StatusEventPattern.Color := $ff;
	end;
	with Events do
	begin
		Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
		Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
	end;
	EndUpdate();
end
44
How can I change the timer's color

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	with MarkTimes do
	begin
		with Add('timer','5/24/2012 11:35:00 AM') do
		begin
			Movable := True;
			LineColor := $ff0000;
			StatusEventBackColor := $ff0000;
			TimeScaleLineColor := $ff0000;
			TimeScaleLabel := '<fgcolor=0000FF><b><%hh%>:<%nn%> <%AM/PM%>';
		end;
	end;
	EndUpdate();
end
43
Can I add multiple timers with different colors

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	with MarkTimes do
	begin
		with Add('timer1','5/24/2012 9:35:00 AM') do
		begin
			Movable := True;
			StatusEventBackColor := $ff;
		end;
		with Add('timer2','5/24/2012 1:35:00 PM') do
		begin
			Movable := True;
			LineColor := $ff00;
			StatusEventBackColor := LineColor;
			TimeScaleLineColor := LineColor;
			TimeScaleLabel := '<fgcolor=00FF00><b><%hh%>:<%nn%> <%AM/PM%>';
		end;
	end;
	with Events do
	begin
		Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
		Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
	end;
	EndUpdate();
end
42
How can I specify a different color for the status of the event that intersects with the timer

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	with MarkTimes.Add('timer','5/24/2012 11:35:00 AM') do
	begin
		TimeScaleLabelAlign := EXSCHEDULELib_TLB.exTopCenter;
		Line := Integer(EXSCHEDULELib_TLB.exLinesThick) Or Integer(EXSCHEDULELib_TLB.exLinesHDot4);
		TimeScaleLine := EXSCHEDULELib_TLB.exLinesHDot4;
		StatusEventBackColor := $ff;
		Movable := True;
	end;
	with Events do
	begin
		Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
		Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
	end;
	EndUpdate();
end
41
How can the chart displays the events from the timer with a different color

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	with MarkTimes.Add('timer','5/24/2012 11:35:00 AM') do
	begin
		TimeScaleLabel := '';
		Label := '<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>';
		LabelAlign := EXSCHEDULELib_TLB.exBottomRight;
		Line := Integer(EXSCHEDULELib_TLB.exLinesThicker) Or Integer(EXSCHEDULELib_TLB.exLinesDash);
		BodyEventBackColor := $80;
		BodyEventForeColor := $ffffff;
		Movable := True;
	end;
	with Events do
	begin
		Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
		Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
	end;
	EndUpdate();
end
40
Is it possible to display the timer's label on the chart, instead time scales

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	with MarkTimes.Add('timer','5/24/2012 11:35:00 AM') do
	begin
		TimeScaleLabel := '';
		Label := '<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>';
		LabelAlign := EXSCHEDULELib_TLB.exBottomRight;
		Line := Integer(EXSCHEDULELib_TLB.exLinesThicker) Or Integer(EXSCHEDULELib_TLB.exLinesDash);
	end;
	with Events do
	begin
		Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
		Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
	end;
	EndUpdate();
end
39
How can I add a timer to the scheduler

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	MarkTimes.Add('timer','5/24/2012 11:35:00 AM');
	with Events do
	begin
		Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
		Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
	end;
	EndUpdate();
end
38
Is it possible to define the small increment to 5 minutes

with Schedule1 do
begin
	DayEndTime := '10:00';
	TimeScales.Item[OleVariant(0)].MinorTimeRuler := '00:05';
end
37
How can I change the time format to 24 hours to be displayed in the control's time scale

with Schedule1 do
begin
	with TimeScales.Item[OleVariant(0)] do
	begin
		MajorTimeLabel := '<%hh%>:<%nn%>';
		Width := 32;
	end;
end
36
How can I change the time zone

with Schedule1 do
begin
	DayEndTime := '13:00';
	with TimeScales.Item[OleVariant(0)] do
	begin
		TimeZone := '+03:00';
		Caption := TimeZone;
	end;
end
35
Is it possible to add more time scales

with Schedule1 do
begin
	DayEndTime := '13:00';
	with TimeScales.Add('+03:00') do
	begin
		AlignLeft := False;
		Caption := 'EST <b>+03';
	end;
end
34
How can I get any event to be notified if a picture or icon is clicked (Method 2)

// PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
procedure TForm1.Schedule1PictureClick(ASender: TObject; Key : WideString);
begin
	with Schedule1 do
	begin
		OutputDebugString( Key );
	end
end;

with Schedule1 do
begin
	BeginUpdate();
	ShowSelectEvent := False;
	Calendar.Selection := '5/24/2012';
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Pictures do
	begin
		Add('pic1','c:\exontrol\images\card.png');
		Add('pic2','c:\exontrol\images\diary.png');
	end;
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').Pictures := 'pic1/pic2';
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM').Pictures := '1,2/3';
		Add('5/24/2012 1:00:00 PM','5/24/2012 3:45:00 PM').ExtraPictures := 'pic2/1';
	end;
	EndUpdate();
end
33
How can I display a tooltip for an anchor element, for instance

// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.Schedule1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with Schedule1 do
	begin
		s := AnchorFromPoint[-1,-1];
		ShowToolTip(s,'info','','+16',Null);
	end
end;

with Schedule1 do
begin
	BeginUpdate();
	ShowSelectEvent := False;
	Calendar.Selection := '5/24/2012';
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM').ExtraLabel := '<a remove>remove</a>';
		Add('5/24/2012 1:45:00 PM','5/24/2012 3:45:00 PM');
	end;
	EndUpdate();
end
32
Is it possible to prevent selecting events
with Schedule1 do
begin
	BeginUpdate();
	ShowSelectEvent := False;
	Calendar.Selection := '5/24/2012';
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM').Selected := True;
		Add('5/24/2012 1:45:00 PM','5/24/2012 3:45:00 PM');
	end;
	EndUpdate();
end
31
How can I get any event to be notified if a picture or icon is clicked (Method 1)

// AnchorClick event - Occurs when an anchor element is clicked.
procedure TForm1.Schedule1AnchorClick(ASender: TObject; AnchorID : WideString;Options : WideString);
begin
	with Schedule1 do
	begin
		OutputDebugString( AnchorID );
	end
end;

with Schedule1 do
begin
	BeginUpdate();
	ShowSelectEvent := False;
	Calendar.Selection := '5/24/2012';
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Pictures do
	begin
		Add('pic1','c:\exontrol\images\card.png');
		Add('pic2','c:\exontrol\images\diary.png');
	end;
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').ExtraLabel := '<a pic1><img>pic1:32</img></a>';
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM').ExtraLabel := '<a pic2><img>pic2:48</img></a>';
		Add('5/24/2012 1:45:00 PM','5/24/2012 3:45:00 PM').LongLabel := 'Start: <%=%1%><br>End: <%=%2%><br><br>Icon: <a 1><img>1</img></a> - <a 2><img>2</img></a>';
	end;
	EndUpdate();
end
30
How can I display a picture or an icon to an event

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Pictures do
	begin
		Add('pic1','c:\exontrol\images\card.png');
		Add('pic2','c:\exontrol\images\diary.png');
	end;
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').ExtraLabel := '<img>pic1:32</img>';
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM').ExtraLabel := '<img>pic2:48</img>';
		Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM').Pictures := '1/2,3/pic1';
		with Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM') do
		begin
			ExtraPictures := '1/2';
			Pictures := '1,pic1,2,pic2/3';
		end;
	end;
	EndUpdate();
end
29
Is it possible to display the group's caption or ID on the event's label

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	with Groups do
	begin
		with Add(1,'Group 1') do
		begin
			Visible := True;
			EventBackColor := $808080;
			Title := '1''st Group';
		end;
		with Add(2,'Group 2') do
		begin
			Visible := True;
			EventBackColor := $ff;
			Title := '2''nd Group';
		end;
	end;
	DefaultEventLongLabel := '<%=%256%><br>Group''s Caption: <b><%=%262%></b><br>Group''s Title: <b><%=%263%></b>';
	DefaultEventShortLabel := DefaultEventLongLabel;
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').GroupID := 1;
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').GroupID := 2;
		Add('5/24/2012 12:30:00 PM','5/24/2012 2:30:00 PM').GroupID := 1;
	end;
	EndUpdate();
end
28
How can I show the events from different groups using the same color

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	DisplayGroupingButton := True;
	ShowGroupingEvents := True;
	ApplyGroupingColors := False;
	with Groups do
	begin
		with Add(1,'Group 1') do
		begin
			Visible := True;
			EventBackColor := $808080;
			Title := '1''st Group';
		end;
		with Add(2,'Group 2') do
		begin
			Visible := True;
			EventBackColor := $ff;
			Title := '2''nd Group';
		end;
	end;
	DefaultEventLongLabel := '<%=%256%><br>Group''s Caption: <b><%=%262%></b><br>Group''s Title: <b><%=%263%></b>';
	DefaultEventShortLabel := DefaultEventLongLabel;
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').GroupID := 1;
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').GroupID := 2;
		Add('5/24/2012 12:30:00 PM','5/24/2012 2:30:00 PM').GroupID := 1;
	end;
	EndUpdate();
end
27
Is it possible to hide the grid lines in the calendar panel

with Schedule1 do
begin
	Calendar.ShowGridLines := EXSCHEDULELib_TLB.exNoLines;
end
26
How can I control the number of months displayed on the calendar pane
with Schedule1 do
begin
	with Calendar do
	begin
		MaxMonthX := 2;
		MaxMonthY := 2;
	end;
end
25
I'm currently evaluating your eXSchedule product and i'm trying to have the header display the month according to local settings. How can I do that (Method 2)

with Schedule1 do
begin
	with Calendar do
	begin
		FirstWeekDay := EXSCHEDULELib_TLB.exMonday;
		MonthNames := 'J-A F-E M-A A-P M-A J-U J-L A-U S-P O-C N-V D-C';
		WeekDays := 'Du Lu Ma Mi Jo Vi Si';
		TodayCaption := 'A z i';
	end;
end
24
I'm currently evaluating your eXSchedule product and i'm trying to have the header display the month according to local settings. How can I do that (Method 1)

with Schedule1 do
begin
	with Calendar do
	begin
		FirstWeekDay := LocFirstWeekDay;
		MonthNames := LocMonthNames;
		WeekDays := LocWeekDays;
		AMPM := LocAMPM;
	end;
end
23
How can I show the events grouped

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	DisplayGroupingButton := True;
	ShowGroupingEvents := True;
	with Groups do
	begin
		with Add(1,'Group 1') do
		begin
			Visible := True;
			EventBackColor := $808080;
			HeaderBackColor := EventBackColor;
		end;
		with Add(2,'Group 2') do
		begin
			Visible := True;
			EventBackColor := $ff;
			HeaderBackColor := EventBackColor;
		end;
	end;
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').GroupID := 1;
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').GroupID := 2;
		Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM').GroupID := 1;
	end;
	EndUpdate();
end
22
How can I show 2 or more days in the scheduler

with Schedule1 do
begin
	BeginUpdate();
	with Calendar do
	begin
		Selection := '0';
		SelectDate['5/24/2012'] := True;
		SelectDate['5/25/2012'] := True;
	end;
	EndUpdate();
end
21
Is it possible to change the first week day

with Schedule1 do
begin
	Calendar.FirstWeekDay := EXSCHEDULELib_TLB.exMonday;
end
20
How can I define the new starting / ending points of the day

with Schedule1 do
begin
	DayStartTime := '07:30';
	DayEndTime := '12:45';
end
19
Is it possible to change the label to be displayed when user moves the events

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	UpdateEventsLabel := 'Start: <%=%1%><br>End: <%=%2%>';
	UpdateEventsLabelAlign := EXSCHEDULELib_TLB.exMiddleCenter;
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
	end;
	EndUpdate();
end
18
How can I change the default tooltip when adding new events

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	DefaultEventTooltip := 'Start: <%=%1%><br>End: <%=%2%>';
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
	end;
	EndUpdate();
end
17
How can I change the default label when adding new events

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	CreateEventLabel := 'Start: <%=%1%><br>End: <%=%2%>';
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
	end;
	EndUpdate();
end
16
How can I change the default label when adding new events

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	DefaultEventLongLabel := 'Start: <%=%1%><br>End: <%=%2%>';
	DefaultEventShortLabel := DefaultEventLongLabel;
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
	end;
	EndUpdate();
end
15
How can I programatically add events to the control

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
	end;
	EndUpdate();
end
14
How can I hide the status part of a specific event

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').ShowStatus := False;
		Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
	end;
	EndUpdate();
end
13
Is it possible to change the status color for a specific event

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').StatusColor := $ff;
		Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
	end;
	EndUpdate();
end
12
Is it possible to change the background color for a specific event

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').BodyBackColor := $ff;
		Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
	end;
	EndUpdate();
end
11
Can I change the size of the status to be larger

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	StatusEventSize := 8;
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
	end;
	EndUpdate();
end
10
I do not need a status, can I hide it

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	ShowStatusEvent := False;
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
	end;
	EndUpdate();
end
9
Is it possible to change the status's default background color

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	StatusEventColor := RGB(255,0,0);
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
	end;
	EndUpdate();
end
8
How can I change the visual appearance of the Events (Method 2)

with Schedule1 do
begin
	BeginUpdate();
	Calendar.Selection := '5/24/2012';
	VisualDesign := 'gBFLBWIgBAEHhEJAEGg55hAvCcHAkIbD/i0JE0KhYnjQDFEaAQDhEMAAIhAPhBYKA6KhyMJjNZiMJyEA2EAxAUIk0HlEHlUsl0wmU0GYgGcig87AE9AE/lsvmMzEAym8' + 
	'BA==';
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
	end;
	EndUpdate();
end
7
How can I change the visual appearance of the Events (Method 1)

with Schedule1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Calendar.Selection := '5/24/2012';
	BodyEventBackColor := $1000000;
	with Events do
	begin
		Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
		Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM');
		Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
	end;
	EndUpdate();
end
6
How can I show the scheduler panel only, so no Calendar panel is shown

with Schedule1 do
begin
	OnResizeControl := Integer(EXSCHEDULELib_TLB.exChangePanels) Or Integer(EXSCHEDULELib_TLB.exHideSplitter);
end
5
May I display the calendar in the right side of the control

with Schedule1 do
begin
	OnResizeControl := Integer(EXSCHEDULELib_TLB.exCalendarFit) Or Integer(EXSCHEDULELib_TLB.exChangePanels);
end
4
Is it possible to disable resizing the vertical splitter

with Schedule1 do
begin
	OnResizeControl := Integer(EXSCHEDULELib_TLB.exDisableSplitter) Or Integer(EXSCHEDULELib_TLB.exResizePanelRight);
end
3
How can I show the Calendar panel only

with Schedule1 do
begin
	OnResizeControl := Integer(EXSCHEDULELib_TLB.exHideSplitter) Or Integer(EXSCHEDULELib_TLB.exResizePanelRight);
end
2
Is there an AutoHide option for the Calendar panel

with Schedule1 do
begin
	OnResizeControl := EXSCHEDULELib_TLB.exCalendarAutoHide;
end
1
How can I hide the Calendar panel

with Schedule1 do
begin
	OnResizeControl := Integer(EXSCHEDULELib_TLB.exChangePanels) Or Integer(EXSCHEDULELib_TLB.exHideSplitter);
end